home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / games / _zig_zag / add < prev    next >
Encoding:
Text File  |  1990-07-11  |  693 b   |  38 lines
  1. >L.
  2.  
  3. 20000DEFPROCcol2
  4.  
  5. 20010MODE15
  6.  
  7. 20020PRINT''''''''''''''''"Colours:"
  8.  
  9. 20030FORA=0TO129
  10.  
  11. 20040COLOUR A
  12.  
  13. 20050PRINTSTR$(A);" ";
  14.  
  15. 20060NEXT
  16.  
  17. 20070PRINT'"Backgrounds"
  18.  
  19. 20080FORA=130TO255
  20.  
  21. 20090COLOUR 128
  22.  
  23. 20100COLOUR A
  24.  
  25. 20110PRINTSTR$(A);" ";
  26.  
  27. 20120NEXT
  28.  
  29. 20130ENDPROC
  30.  
  31. 20140:
  32.  
  33. 20150DEFPROCcol
  34.  
  35. 20160A=1:Q=1
  36.  
  37. 20170MODE0
  38.  
  39. 20180CLS:INPUT"Start at which number"A
  40.  
  41. 20190IF A=0 A=1
  42.  
  43. 20200MODE15
  44.  
  45. 20210REPEAT
  46.  
  47. 20220COLOUR A
  48.  
  49. 20230CLS:PRINTTAB(12,12)"THAT ALL FOLKS"
  50.  
  51. 20240PRINT"Colour "STR$(A)
  52.  
  53. 20250PRINT"Inkey "STR$(Q)
  54.  
  55. 20260Q=INKEY(150)
  56.  
  57. 20270IF Q=-1 A=A+1
  58.  
  59. 20280IF Q=39 A=A+1
  60.  
  61. 20290IF Q=47 A=A-1
  62.  
  63. 20300IF Q=59 A=A+10
  64.  
  65. 20310IF Q=46 A=A-10
  66.  
  67. 20320UNTIL Q=9
  68.  
  69. 20330GOTO20160
  70.  
  71. 20340ENDPROC
  72.  
  73. >(*SPOOL
  74.  
  75.